3.3.2 \(\int \frac {\log (c (a+\frac {b}{x})^p)}{(d+e x)^2} \, dx\) [202]

Optimal. Leaf size=81 \[ -\frac {\log \left (c \left (a+\frac {b}{x}\right )^p\right )}{e (d+e x)}-\frac {p \log (x)}{d e}+\frac {a p \log (b+a x)}{e (a d-b e)}-\frac {b p \log (d+e x)}{d (a d-b e)} \]

[Out]

-ln(c*(a+b/x)^p)/e/(e*x+d)-p*ln(x)/d/e+a*p*ln(a*x+b)/e/(a*d-b*e)-b*p*ln(e*x+d)/d/(a*d-b*e)

________________________________________________________________________________________

Rubi [A]
time = 0.06, antiderivative size = 81, normalized size of antiderivative = 1.00, number of steps used = 4, number of rules used = 3, integrand size = 20, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.150, Rules used = {2513, 528, 84} \begin {gather*} -\frac {\log \left (c \left (a+\frac {b}{x}\right )^p\right )}{e (d+e x)}+\frac {a p \log (a x+b)}{e (a d-b e)}-\frac {b p \log (d+e x)}{d (a d-b e)}-\frac {p \log (x)}{d e} \end {gather*}

Antiderivative was successfully verified.

[In]

Int[Log[c*(a + b/x)^p]/(d + e*x)^2,x]

[Out]

-(Log[c*(a + b/x)^p]/(e*(d + e*x))) - (p*Log[x])/(d*e) + (a*p*Log[b + a*x])/(e*(a*d - b*e)) - (b*p*Log[d + e*x
])/(d*(a*d - b*e))

Rule 84

Int[((e_.) + (f_.)*(x_))^(p_.)/(((a_.) + (b_.)*(x_))*((c_.) + (d_.)*(x_))), x_Symbol] :> Int[ExpandIntegrand[(
e + f*x)^p/((a + b*x)*(c + d*x)), x], x] /; FreeQ[{a, b, c, d, e, f}, x] && IntegerQ[p]

Rule 528

Int[(x_)^(m_.)*((c_) + (d_.)*(x_)^(mn_.))^(q_.)*((a_) + (b_.)*(x_)^(n_.))^(p_.), x_Symbol] :> Int[x^(m - n*q)*
(a + b*x^n)^p*(d + c*x^n)^q, x] /; FreeQ[{a, b, c, d, m, n, p}, x] && EqQ[mn, -n] && IntegerQ[q] && (PosQ[n] |
|  !IntegerQ[p])

Rule 2513

Int[((a_.) + Log[(c_.)*((d_) + (e_.)*(x_)^(n_))^(p_.)]*(b_.))*((f_.) + (g_.)*(x_))^(r_.), x_Symbol] :> Simp[(f
+ g*x)^(r + 1)*((a + b*Log[c*(d + e*x^n)^p])/(g*(r + 1))), x] - Dist[b*e*n*(p/(g*(r + 1))), Int[x^(n - 1)*((f
+ g*x)^(r + 1)/(d + e*x^n)), x], x] /; FreeQ[{a, b, c, d, e, f, g, n, p, r}, x] && (IGtQ[r, 0] || RationalQ[n
]) && NeQ[r, -1]

Rubi steps

\begin {align*} \int \frac {\log \left (c \left (a+\frac {b}{x}\right )^p\right )}{(d+e x)^2} \, dx &=-\frac {\log \left (c \left (a+\frac {b}{x}\right )^p\right )}{e (d+e x)}-\frac {(b p) \int \frac {1}{\left (a+\frac {b}{x}\right ) x^2 (d+e x)} \, dx}{e}\\ &=-\frac {\log \left (c \left (a+\frac {b}{x}\right )^p\right )}{e (d+e x)}-\frac {(b p) \int \frac {1}{x (b+a x) (d+e x)} \, dx}{e}\\ &=-\frac {\log \left (c \left (a+\frac {b}{x}\right )^p\right )}{e (d+e x)}-\frac {(b p) \int \left (\frac {1}{b d x}+\frac {a^2}{b (-a d+b e) (b+a x)}+\frac {e^2}{d (a d-b e) (d+e x)}\right ) \, dx}{e}\\ &=-\frac {\log \left (c \left (a+\frac {b}{x}\right )^p\right )}{e (d+e x)}-\frac {p \log (x)}{d e}+\frac {a p \log (b+a x)}{e (a d-b e)}-\frac {b p \log (d+e x)}{d (a d-b e)}\\ \end {align*}

________________________________________________________________________________________

Mathematica [A]
time = 0.05, size = 81, normalized size = 1.00 \begin {gather*} -\frac {\log \left (c \left (a+\frac {b}{x}\right )^p\right )}{e (d+e x)}-\frac {p \log (x)}{d e}+\frac {a p \log (b+a x)}{e (a d-b e)}-\frac {b p \log (d+e x)}{d (a d-b e)} \end {gather*}

Antiderivative was successfully verified.

[In]

Integrate[Log[c*(a + b/x)^p]/(d + e*x)^2,x]

[Out]

-(Log[c*(a + b/x)^p]/(e*(d + e*x))) - (p*Log[x])/(d*e) + (a*p*Log[b + a*x])/(e*(a*d - b*e)) - (b*p*Log[d + e*x
])/(d*(a*d - b*e))

________________________________________________________________________________________

Maple [F]
time = 0.22, size = 0, normalized size = 0.00 \[\int \frac {\ln \left (c \left (a +\frac {b}{x}\right )^{p}\right )}{\left (e x +d \right )^{2}}\, dx\]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(ln(c*(a+b/x)^p)/(e*x+d)^2,x)

[Out]

int(ln(c*(a+b/x)^p)/(e*x+d)^2,x)

________________________________________________________________________________________

Maxima [A]
time = 0.33, size = 88, normalized size = 1.09 \begin {gather*} b p {\left (\frac {a \log \left (a x + b\right )}{a b d - b^{2} e} - \frac {e \log \left (x e + d\right )}{a d^{2} - b d e} - \frac {\log \left (x\right )}{b d}\right )} e^{\left (-1\right )} - \frac {e^{\left (-1\right )} \log \left ({\left (a + \frac {b}{x}\right )}^{p} c\right )}{x e + d} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(log(c*(a+b/x)^p)/(e*x+d)^2,x, algorithm="maxima")

[Out]

b*p*(a*log(a*x + b)/(a*b*d - b^2*e) - e*log(x*e + d)/(a*d^2 - b*d*e) - log(x)/(b*d))*e^(-1) - e^(-1)*log((a +
b/x)^p*c)/(x*e + d)

________________________________________________________________________________________

Fricas [A]
time = 0.45, size = 152, normalized size = 1.88 \begin {gather*} \frac {{\left (a d p x e + a d^{2} p\right )} \log \left (a x + b\right ) - {\left (b p x e^{2} + b d p e\right )} \log \left (x e + d\right ) - {\left (a d^{2} - b d e\right )} \log \left (c\right ) - {\left (a d^{2} p - b p x e^{2} + {\left (a d p x - b d p\right )} e\right )} \log \left (x\right ) - {\left (a d^{2} p - b d p e\right )} \log \left (\frac {a x + b}{x}\right )}{a d^{3} e - b d x e^{3} + {\left (a d^{2} x - b d^{2}\right )} e^{2}} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(log(c*(a+b/x)^p)/(e*x+d)^2,x, algorithm="fricas")

[Out]

((a*d*p*x*e + a*d^2*p)*log(a*x + b) - (b*p*x*e^2 + b*d*p*e)*log(x*e + d) - (a*d^2 - b*d*e)*log(c) - (a*d^2*p -
b*p*x*e^2 + (a*d*p*x - b*d*p)*e)*log(x) - (a*d^2*p - b*d*p*e)*log((a*x + b)/x))/(a*d^3*e - b*d*x*e^3 + (a*d^2
*x - b*d^2)*e^2)

________________________________________________________________________________________

Sympy [B] Leaf count of result is larger than twice the leaf count of optimal. 452 vs. \(2 (61) = 122\).
time = 2.64, size = 452, normalized size = 5.58 \begin {gather*} \begin {cases} \frac {d p \log {\left (\frac {d}{e} + x \right )}}{d^{2} e + d e^{2} x} + \frac {e p x \log {\left (\frac {d}{e} + x \right )}}{d^{2} e + d e^{2} x} + \frac {e x \log {\left (c \left (\frac {b}{x}\right )^{p} \right )}}{d^{2} e + d e^{2} x} & \text {for}\: a = 0 \\- \frac {d p}{d^{2} e + d e^{2} x} + \frac {e x \log {\left (c \left (\frac {b}{x} + \frac {b e}{d}\right )^{p} \right )}}{d^{2} e + d e^{2} x} & \text {for}\: a = \frac {b e}{d} \\\frac {- \frac {a \log {\left (c \left (a + \frac {b}{x}\right )^{p} \right )}}{b} + \frac {p}{x} - \frac {\log {\left (c \left (a + \frac {b}{x}\right )^{p} \right )}}{x}}{e^{2}} & \text {for}\: d = 0 \\\tilde {\infty } \left (x \log {\left (c \left (a + \frac {b}{x}\right )^{p} \right )} + \frac {b p \log {\left (a x + b \right )}}{a}\right ) & \text {for}\: d = - e x \\\frac {x \log {\left (c \left (a + \frac {b}{x}\right )^{p} \right )} + \frac {b p \log {\left (a x + b \right )}}{a}}{d^{2}} & \text {for}\: e = 0 \\\frac {a d x \log {\left (c \left (a + \frac {b}{x}\right )^{p} \right )}}{a d^{3} + a d^{2} e x - b d^{2} e - b d e^{2} x} + \frac {b d p \log {\left (x + \frac {b}{a} \right )}}{a d^{3} + a d^{2} e x - b d^{2} e - b d e^{2} x} - \frac {b d p \log {\left (\frac {d}{e} + x \right )}}{a d^{3} + a d^{2} e x - b d^{2} e - b d e^{2} x} + \frac {b e p x \log {\left (x + \frac {b}{a} \right )}}{a d^{3} + a d^{2} e x - b d^{2} e - b d e^{2} x} - \frac {b e p x \log {\left (\frac {d}{e} + x \right )}}{a d^{3} + a d^{2} e x - b d^{2} e - b d e^{2} x} - \frac {b e x \log {\left (c \left (a + \frac {b}{x}\right )^{p} \right )}}{a d^{3} + a d^{2} e x - b d^{2} e - b d e^{2} x} & \text {otherwise} \end {cases} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(ln(c*(a+b/x)**p)/(e*x+d)**2,x)

[Out]

Piecewise((d*p*log(d/e + x)/(d**2*e + d*e**2*x) + e*p*x*log(d/e + x)/(d**2*e + d*e**2*x) + e*x*log(c*(b/x)**p)
/(d**2*e + d*e**2*x), Eq(a, 0)), (-d*p/(d**2*e + d*e**2*x) + e*x*log(c*(b/x + b*e/d)**p)/(d**2*e + d*e**2*x),
Eq(a, b*e/d)), ((-a*log(c*(a + b/x)**p)/b + p/x - log(c*(a + b/x)**p)/x)/e**2, Eq(d, 0)), (zoo*(x*log(c*(a + b
/x)**p) + b*p*log(a*x + b)/a), Eq(d, -e*x)), ((x*log(c*(a + b/x)**p) + b*p*log(a*x + b)/a)/d**2, Eq(e, 0)), (a
*d*x*log(c*(a + b/x)**p)/(a*d**3 + a*d**2*e*x - b*d**2*e - b*d*e**2*x) + b*d*p*log(x + b/a)/(a*d**3 + a*d**2*e
*x - b*d**2*e - b*d*e**2*x) - b*d*p*log(d/e + x)/(a*d**3 + a*d**2*e*x - b*d**2*e - b*d*e**2*x) + b*e*p*x*log(x
+ b/a)/(a*d**3 + a*d**2*e*x - b*d**2*e - b*d*e**2*x) - b*e*p*x*log(d/e + x)/(a*d**3 + a*d**2*e*x - b*d**2*e -
b*d*e**2*x) - b*e*x*log(c*(a + b/x)**p)/(a*d**3 + a*d**2*e*x - b*d**2*e - b*d*e**2*x), True))

________________________________________________________________________________________

Giac [B] Leaf count of result is larger than twice the leaf count of optimal. 192 vs. \(2 (82) = 164\).
time = 2.79, size = 192, normalized size = 2.37 \begin {gather*} -\frac {a b^{2} d p \log \left (-a d + b e + \frac {{\left (a x + b\right )} d}{x}\right ) - b^{3} p e \log \left (-a d + b e + \frac {{\left (a x + b\right )} d}{x}\right ) - \frac {{\left (a x + b\right )} b^{2} d p \log \left (-a d + b e + \frac {{\left (a x + b\right )} d}{x}\right )}{x} + a b^{2} d \log \left (c\right ) - b^{3} e \log \left (c\right ) + \frac {{\left (a x + b\right )} b^{2} d p \log \left (\frac {a x + b}{x}\right )}{x}}{{\left (a^{2} d^{3} - 2 \, a b d^{2} e - \frac {{\left (a x + b\right )} a d^{3}}{x} + b^{2} d e^{2} + \frac {{\left (a x + b\right )} b d^{2} e}{x}\right )} b} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(log(c*(a+b/x)^p)/(e*x+d)^2,x, algorithm="giac")

[Out]

-(a*b^2*d*p*log(-a*d + b*e + (a*x + b)*d/x) - b^3*p*e*log(-a*d + b*e + (a*x + b)*d/x) - (a*x + b)*b^2*d*p*log(
-a*d + b*e + (a*x + b)*d/x)/x + a*b^2*d*log(c) - b^3*e*log(c) + (a*x + b)*b^2*d*p*log((a*x + b)/x)/x)/((a^2*d^
3 - 2*a*b*d^2*e - (a*x + b)*a*d^3/x + b^2*d*e^2 + (a*x + b)*b*d^2*e/x)*b)

________________________________________________________________________________________

Mupad [B]
time = 0.53, size = 85, normalized size = 1.05 \begin {gather*} -\frac {\ln \left (c\,{\left (\frac {b+a\,x}{x}\right )}^p\right )}{x\,e^2+d\,e}-\frac {p\,\ln \left (x\right )}{d\,e}-\frac {a\,p\,\ln \left (b+a\,x\right )}{b\,e^2-a\,d\,e}-\frac {b\,p\,\ln \left (d+e\,x\right )}{a\,d^2-b\,d\,e} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(log(c*(a + b/x)^p)/(d + e*x)^2,x)

[Out]

- log(c*((b + a*x)/x)^p)/(d*e + e^2*x) - (p*log(x))/(d*e) - (a*p*log(b + a*x))/(b*e^2 - a*d*e) - (b*p*log(d +
e*x))/(a*d^2 - b*d*e)

________________________________________________________________________________________